home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
dbms_mag
/
9104
/
techtip2.apr
< prev
next >
Wrap
Text File
|
1991-03-26
|
541b
|
34 lines
LISTING 2
/***
*
* INSERT A CONTROL-Z AT EOFO
*
***/
** test.prg
if add_eof(╥GLENTRY.TXT╙)
use getdata
append from (╥GLENTRY.TXT╙) SDF
else
error(╥There has been a problem adding an EOF to GLENTRY.TXT╙)
RETURN
endif
#include ╥Fileio.ch╙
FUNCTION add_eof (filename)
local error
error := ( fhandle := FOPEN(filename,FO_READWRITE) ) <= 0
FSEEK(fhandle,1,FS_END)
error = error .OR. FERROR() <> 0
error = error .OR. (FWRITE(fhandle,chr(26),1) <> 1)
FCLOSE(fhandle)
RETURN error .OR. FERROR() <> 0